Creating a gambas2 program, step by step, a telephone index

 From : http://listingambas.blogspot.com/2011/06/modulo-gestion-editar.html

Management Module: Edit

Once you have entered data records, over time, we need to change or to update (Eg Job mobile changes) or complement information we did not had (Eg photo)
Well, in this module We develop code to do so.


How to choose the record to edit? Property. Row
Then there would be several ways, one of them would ask for example the user ID and go to editing.
I can think of a "more intuitive" user that clicks on the row of gridViewData and edit the data it contains in the line where was the click .
For this we need the property GridViewData.Row, and that row indicates where we hit.
Single Registration: ID field
But we are still missing an important fact to edit the record. Knowing the line, we need to know the record var.id (number which identifies a record and "only" one), because if we choose another field (name, etc. ), it can match several records with this data, so do not field ID.
For this to our gridViewData, we'll add a column (no need to provide width and title) and write in this column the id of the record.
This must be changed:
MODULE TITLE ; Procedure: set ()
In the line:
. columns . COUNT = 16
This would be replaced by:
. columns . COUNT = 17


Procedure: fill ()
Add the line:
. GridViewData [a, 15 ]. text = var. data_date [a]
. GridViewData [a, 16 ]. text = var. id [a]
END WITH


Thus at column 17, we will have the id information to help us identifying the record for editing.
For gridviews you start counting from 0, but the visible columns start from 1, so a gridview that has 5 columns ( . columns . COUNT = 5 ) , actually counts "0,1,2,3,4" and if we put a figure in column 5, we must tell the gridviews 4.

GridViewData [a, 4]. text = What_to_put

Now we are going to "edit" the line-chosen record and somehow indicate that we are in edit mode.
The gridviewdata will recieve the property .enabled = False.
Then, at the end of our Edition we will return to normal (. enabled = True).:

On Form Fmain:
PUBLIC SUB GridViewData_Click ()
gridViewData. enabled = false
management. edit (GridViewData [GridViewData. Row , 16 ]. text )
END

Thus we call a procedure, in the Management module, called edit, whose function is editing the record with the ID containing the clicked row.In Module Management: We need to find the number of records containing that ID, so we solve it with a function that returns, given the registration number,the id or at worst an error message:
PUBLIC FUNCTION endIDdata (id AS String ) AS Integer
DIM a AS Integer
FOR a = 0 TO var. id . COUNT - 1
IF id = var. id[a] THEN
RETURN a
ENDIFNEXT
Message.Error ( "Can't find record with this ID number:" & ID)RETURN - 1 style="color: rgb(6, 0, 255);">END
Important Note: parenthesis ( ) are different from the brackets [ ]
The parenthesis () indicates functions that pass a value, which is within the parenthesis.

brackets [] hold the number occupied by the data in a matrix or array.

This function is called inside the main subroutine edit.

PUBLIC SUB edit (id AS String )
DIM register AS Integer
register = endIDdata (id)
IF register = - 1 THEN
Message. info ( "Unable to edit, corrupted data" )
ELSE
var. status = "Editing"
var. EditRegister = register
WITH FMain
. Picture BoxPhoto . Picture = Picture [var. photo [register]]
. TextBoxDNI . text = var. dni [register]
. TextBoxName . text = var. name [register]
. TextBoxSurname . text = var. surname [register]
. TextBoxCompany . text = var. company [register]
. TextBoxPosition . text = var. position [register]
. TextBoxJobTel . text = var. tel_company [register]
. TextBoxPrivateTel . text = var. tel_private [register]
. TextBoxFax . text = var. fax [register]
. TextBoxJobMobile . text = var. mobile_company [register]
. TextBoxPrivateMobile . text = var. mobile_private [register]
. TextBoxWEB . text = var. page [register]
. TextBoxAdress . text = var. address [register]
. TextBoxComments . text = var. comments [register]
. TextBoxDate . text = var. data_date [register]
. TextBoxMail . text = var. mail [register]
END WITH
var. path_Picture = var. photo [register]
ENDIF
END

Furthermore we define another global variable (in the module var )
PUBLIC status AS String
PUBLIC editRegister as integer

to inform the program that we are "editing" and not "entering newdata". It will be usefull for buttons OK / Delete / Cancel behavior.
The OK button in Edit mode.

 The OK button must behave a different way than when we are entering data. How do we do? With the global variable "status" and a simple "If .... Then," . If the status is "editing" we will press the button to accept that new data overwrite the same record. If we are not editing, we add it as explained above.

We put the modified code in FMAIN Form
PUBLIC SUB ButtonValid_Click ()
IF var. status <> "Editing" Then
'Adding matrix data
var. id . add ( "Id" & Str $ ( Now ))
var. dni . add (TextBoxDNI. text )
var. name . add (TextBoxName. Text )
var. surname . add (TextBoxSurname. Text )
var. company . add (TextBoxCompany. Text )
var. position . add (TextBoxPosition. Text )
var. tel_company . add (TextBoxJobTel. Text )
var. tel_private . add (TextBoxPrivateTel. text )
var. fax . add (TextBoxFax. Text )
var. mobile_company . add (TextBoxJobMobile. Text )
var. mobile_private . add (TextBoxPrivateMobile. Text )
var. page . add (TextBoxWEB. Text )
'we store the path to pictures in Photo
var. photo . add (var. path_Picture)
var. address . add (TextBoxAdress. Text )
var. comments . add (TextBoxComments. Text )
var. data_date . add (TextBoxdate. Text )
var. mail . Add (TextBoxMail. Text )
ENDIF
if var. status = "Editing" Then
var. dni [var. EditRegister ] = TextBoxDNI. text
var. name [var. EditRegister ] = TextBoxName. Text
var. surname [var. EditRegister ] = TextBoxSurname. Text
var. company [var. EditRegister ] = TextBoxCompany. Text
var. position [var. EditRegister ] = TextBoxPosition. Text
var. tel_company [var. EditRegister ] = TextBoxJobTel. Text
var. tel_private [var. EditRegister ] = TextBoxPrivateTel. text
var. fax [var. EditRegister ] = TextBoxFax. Text
var. mobile_company [var. EditRegister ] = TextBoxJobMobile. Text
var. mobile_private [var. EditRegister ] = TextBoxPrivateMobile. Text
var. page [var. EditRegister ] = TextBoxWEB. Text
'We keep on the path where the picture is
var. photo [var. EditRegister ] = var. path_Picture
var. address [var. EditRegister ] = TextBoxAddress. Text
var. comments [var. EditRegister ] = TextBoxComments. Text
var. data_date [var. EditRegister ] = TextBoxDate. Text
var. mail [var. EditRegister ] = TextBoxMail. Text
'Is given by the state of editing Completed
var. status = ""
ENDIF
'Put the property .Text of texboxes to blank
PictureBoxFoto. Picture = Picture [ "icon: / 96/gambas" ]
TextBoxDNI. text = ""
TextBoxName. text = ""
TextBoxSurname. text = ""
TextBoxCompany. text = ""
TextBoxPosition. text = ""
TextBoxTelCompany. text = ""
TextBoxTelPrivate. text = ""
TextBoxFax. text = ""
TextBoxMobileCompany. text = ""
TextBoxMobilePrivate. text = ""
TextBoxWEB. text = ""
PictureBoxPhoto. Picture = ""
TextBoxAddress. text = ""
TextBoxComments. text = ""
TextBoxDate. text = ""
TextBoxMail. text = ""
'Write the entered data gridviews
title. fill ()
'setfocus right at the beginning of the data
TextBoxDNI. SetFocus
' Make gridViewData accessible again
gridViewData. Enabled = True
END
Note: the blue part of the code is the part added.